home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
msdos
/
dbhamlog
/
callken.prg
< prev
next >
Wrap
Text File
|
1991-10-18
|
3KB
|
143 lines
**************** 交信記録確認 ****************
*************** CALLKEN.PRG ***** T.Chino ***
SET ORDER TO 1
CLEAR
GOTO TOP
SET COLOR ON
SET EXACT OFF
SET COLOR TO BR
@ 1,15 SAY "*************************************************"
@ 2,15 SAY "* *"
@ 3,15 SAY "************************************* 検索.PRG **"
SET COLOR TO GR
@ 2,18 SAY "アマチュア 無 線 QSO ログ 管 理 システム"
SET COLOR TO BG
@ 5,20 SAY " -------------------------------"
@ 6,20 SAY " * 呼出符号 *"
@ 7,20 SAY " -------------------------------"
SET COLOR TO G
@ 8,15 SAY " 交信月日 氏名 "
@ 10,15 SAY " 時間 住所 "
@ 12,15 SAY " 周波数 MHz JCC/G GL"
@ 14,15 SAY " 電波形式 QSL "
@ 16,15 SAY " 交信回数 "
@ 18,15 SAY " "
SET COLOR TO
DO WHILE .T. && ****************111***********
SET COLOR TO GR
STORE SPACE(10) TO C
@ 22,1 SAY " "
@ 23,1 SAY " "
@ 22,15 SAY " 検索する 呼出符号は ? " GET C
READ
CLEAR GET
IF C=" "
RETURN
ENDIF
C=TRIM(C)
FIND &C
STORE 1 TO N
DO WHILE .T. && ********2222
IF EOF() .AND. READKEY()<>5
EXIT
ENDIF
IF CALL = C
SKIP
STORE N+1 TO N
ELSE
SKIP -1
EXIT
ENDIF
ENDDO && ***************222
DO WHILE .T. && ********333
IF EOF() .AND. READKEY()<>5
EXIT
ENDIF
SET COLOR TO R
@ 2,65 SAY STR(RECNO(),5)+" /"+STR(RECCOUNT(),5)
SET COLOR TO GRI
@ 6,39 SAY " "+CALL
SET COLOR TO GR
@ 8,25 SAY " "+DTOC(MMDDYY)
@ 10,25 SAY " "+TIME
@ 12,25 SAY " "+FREQ
@ 14,25 SAY " "+WAVE
@ 8,48 SAY " "+NAME
@ 10,48 SAY " "+ADDRES
@ 12,48 SAY " "+JCC_G
@ 12,58 SAY " "+GL
*Q="OK"
@ 14,48 SAY " "+QSL
@ 16,48 SAY " "
IF CALL=C
@ 16,48 SAY " "+STR((N-1),2)
ENDIF
SET CURS OFF
SET COLOR TO BR
STORE SPACE(1) TO ZB
@ 22,15 SAY " 前後のDATA検索 ( ↑・↓ ) "
SET COLOR TO BGI
@ 22,47 SAY " [ NEXT=CR ] "
@ 0,0 GET ZB
READ
CLEAR GET
IF READKEY()=4
IF BOF()
GOTO BOTTOM
ENDIF
SKIP -1
LOOP
ENDIF
IF READKEY()=5
IF EOF()
GOTO TOP
LOOP
ENDIF
SKIP +1
LOOP
ELSE
EXIT
ENDIF
ENDDO && *************333
*REPLACE QSL WITH Q
SET CURS ON
SET COLOR TO R
IF EOF()
@ 22,0 SAY " 該当する交信記録は有りません。"
WAIT
LOOP
ELSE
LOOP
ENDIF
ENDDO && ************111
CLEAR
*DO CALL
DO HAMLOG